10 ' Определение позиций максимумов и минимумов
20 CLS
30 INPUT "Сколько чисел в последовательности"; N%
40 INPUT "Первое число"; X
50 MAX = X: FirstMaxPos = 1
60 MIN = X: LastMinPos = 1
70 FOR I = 2 TO N%
80 INPUT "Очередное число ="; X
90 IF X > MAX THEN MAX = X: FirstMaxPos = I
100 IF X <= MIN THEN MIN = X: LastMinPos = I
110 NEXT I
120 PRINT "MAX ="; MAX; "; первый MAX в позиции"; FirstMaxPos
130 PRINT "MIN =:; MIN; "; последний MIN в позиции"; LastMinPos
140 END